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MODULE BASSSSIGNAL_10 Mu : 
IDENT = *1-023° i File: BASS 1 GY -852 
)= ! Edit: 


BEGIN 


. 
See eR RARER EAAAAAAAARAHEHEAAAAE HEHEHE R EEA EHAAAAAAAAAAAARAAEREKERAEAAAAEE 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 
® 
® 
® 
tt 
* 
t* THIS SOFTWARE IS 4 gt el UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ate AND WITH THE * 
tt INCLUSION OF THE ABOVE COPYRIGHT one E. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!t TRANSFERRED. : 
* 
® 
® 
® 
* 
® 
t 
w 
® 
® 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- pont ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
!@ SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


See R RRR AAA AAEAEE RARER AAAEA REAR AAAA RAE AAAAAAAAAAAAEEEARAAAREREREEEAE 


+ 
FACILITY: BASIC-PLUS-2 1/0 and Error Handling 
ABSTRACT: 


This module contains BASSSSIGNAL_IO, which is called following 
any 1/0 error. If requested, it examines the RMS control blocks 
and $sfor the proper BASIC error. Another entry point, 
BASS$STOP_10, guarantees never to return to the caller. 


ENVIRONMENT: VAX/VMS user mode 
AUTHOR: John Sauter, CREATION DATE: 08-DEC-78 
MODIFIED BY: 


1-001 - Original. JBS 08-DEC-78 
2 - Revise to take CCB ee ail and only need one explicit 


DEC-78 
: - 04 - code in prop per By ait JBS 21-DEC-78 
5- th this is OPEN and ~ is no error code, in the RAB, extract 
! the error code A, the FAB. JBS 27-DE 
' 1-006 - BS OF EB prefix for BASIC stack Yt FD to BSF$. 


1-007 - bon t sorce the error sage fo SEVER - by calling LIBSSTOP 
om BASSSIGNAL_IO. S$ 20-FEB-1979 
1-008 - use oBASIOERR. REQ” to det ine the 1/0 error codes. JBS 20-FEB-1979 
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1 
(1) 


ewe 


eee ss 
RASSESIGNAL 10 


3 2 1 
; 1 
; 60 1 
3; $6) . 
ah g 1 
3 § 1 
; 6666 1 
; 665 : 5 } 
| 3 oY 
; 68 8 1 
3 9 9 1 
3 0 > Ss 
> a. 71 #1 
- - 0072 1 
: 7 0073 #1 
: 74 pore 1 
; 0075 1 
: B278 1 
UM 0077 1 
0078 1 
; 79 0079 1 
; & 0080 1 
; 81 0081 1 
3 Hf 0082 1 
ce 0083 1 
. a 0084 1 
s 85 0085 1 
; & 0086 1 
ot Ge 087 1 
c Op 88 1 


_ 
a 
oO 
—_ 
= 
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18-50 -Sep-1984 $91: )3:7 34 AX-11 Bliss-32 V4.0 
6:40 BASRTL.SRCJBASSIGNAL 


14-Sep-1984 11: 
Take numbers outside of the normal range A gree r cod Pa 
: “ABR=1979 


38s 06-APR-1979 

Don’t pass RMS | austell unless we we pare #agked to compute the 
BASIC error code from it. JBS 06-APR-1 

Add the error codes for INDEXED 70, JBS 09-APR-1979 

If there is a FAB connected to the RAB, and the RAB does not 
show an error, get the status from the FAB. This is for 

the o ere nacre issued by the — Bi A memory support. 


17° A. ISB indicates that this is a socerecry operation, 

scerare contrgl to BASSSSTOP or BASSSSIGNA 

Lorrece an error in the translate table, JBS 30-JUL-1979 

Make Hey $Q0 error give <p hepel | Ogaration’. JBS 02-AUG-1979 
$ S$ 09-AUG-1979 


Change BASSSSIGNAL_RMS to BASS$STOP RAS 9790 the comment 
Pave was 16°68 then’ eB JBS 22-AUG 
0( fp) then CA a He PC hoata “bait out before it gets a 
Bad. siatent on. FM 
Rap pass INS onto BASSK >TINTOOLON, and RMS$_SPE onto BASSK_ERRFILCOR. 
7-0ct- 
ay map Pt ese LBL, since that status is never returned by RMS. 
change ERRFILCOR to Bi ge seeing as we only signal it when the 
system runs out of RMSSHR. MDL 5-Jan-1984 
map RMS$_RNL to BASSK _NO_ CURREC. MDL "3-May-1984 
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BASRTL.SR IGNAL .B852;1 , (2) 


SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


BRANLSS 


; 1 

ig | 

: 38 1 

; 1 

; : 

; 3 09 | LINKAGES: 

: 99 098 1_ 

5 199 $99 ; REQUIRE ‘RTLIN:OTSLNK'; ! Define all Linkages 

; 19¢ : § 1! 

9 5 9 1 ! TABLE OF CONTENTS: 

: 188 : 3 te | 
: 4 533 1 FORWARD ROUTINE 

3 199 5 1 TRANSLATE RMS, ! Translate an RMS error code 

: 108 535 1 C USER ' Calculate the user's PC 

: 109 05 1 S$SSIGNAL_[0 : CALL_CCB NOVALUE, i Signal an 1/0 error 

: 110 537 1 BASS$STOP_IO : CALL_CTB NOVALUE, i Signal a fatal 1/0 error 

; 11 03 § ! BASSSSTOP-RMS : NOVALUE; i Signal a fatal 1/0 error 

; 113 $320 1! 

; "3 O39 ' INCLUDE FILES: 

: 11 543 1 

3 "7 0344 : REQUIRE ‘RTLIN:RTLPSECT'; ! Define DECLARE_PSECTS macro 

; 1%? 0340 ; REQUIRE *RTLML:OTSLUB’; ! Logical Unit Block definitions 
; 131 349K ; REQUIRE ‘RTLML:OTSISB’; ! 1/0 Statement Block definitions 
: 138 9939 : REQUIRE "*RTLIN:BASFRAME'; ! Define BASIC frame structure 

: is 1133 \ REQUIRE "RTLIN:BASIOERR'; ! Define 1/0 error codes. 

: 127 1208 1 LIBRARY ‘RTLSTARLE'; ! System Library for RMS symbols 
2 ee 

: " MACROS: 

ae dp = 

as 1215 1 ! EQUATED SYMBOLS: 

: 135 1 16 1 

a wig; Me 

: 8 19 i PSECTS: 

; 140 1 DECLARE_PSECTS (BAS); ! Declare PSECTs for BAS facility 
; 14@ § i OWN STORAGE : 

i iyi me 

: 146 1 $ 1 ' EXTERNAL REFERENCES: 
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| BASSSSIGNAL_10 16-Sep-1984 01:13:34 AX-11 Bliss-32 V4.0-74 Pa 6 
1483 102808= 1386 94:58:26 EBASRTL-SRe BASS! GiuaL -682;1 a (3) 
ROUTINE TRANSLATE_RMS ( ! Translate _an RMS error code 
STS, ! The RMS STS Longword 
STV, ! The RMS STV Longword 
, OPEN_FLAG ! True if this is an OPEN failure 
= 


!ee 


FUNCTIONAL DESCRIPTION: 


Examines the status values to determine the nature of the RMS 
error and returns the proper BASIC error code. 


i FORMAL PARAMETERS: 


STS.rl.v The RMS STS field, which contains the major 
information about the error. 
STV.rl.v The RMS STV field, which contains some extra 


error information for some STS values. 
OPEN_FLAG.rv.v True (=1) if we are opening a file. 


i IMPLICIT INPUTS: 


—SOVOVODNOUEWN “OOO Nous —OODNAO UNE UN" O OONOUS WO 


H 1 1 ; 
: 1 1 } 
; 1 1 
; 1 1 
; 1 1 
; 1 1 
3 1 1 
; 1 1 
; : : : 
; 1310 1 i 
: 1311 1 i 
s 1312 1 i 
; 1315 1 i 
3 1314 1 i 
3 1315 1 ‘ 
3 13 1 ‘ 
; 1317 1 i 
3 1318 1 i 
3 131 1 i 
; 1320 1 i 
; 136 1 : 
3 3 : NONE : 
$ 135 1 ! IMPLICIT OUTPUTS: : 
3 1325 1 ‘ 
3 135 1! NONE F 
3 1327 1! i 
3 135 ' ! ROUTINE VALUE: : 
3 138 1 The 32-bit BASIC error message code corresponding to the d 
3 3 133 ; RMS error. ; 
; 133 ' ! SIDE EFFECTS: : 
; § 13 1 NONE F 
: $ 13 1 ; 
1338} | 
3 3 133 § BEGIN : 
3 $6 1341 § LOCAL ; ‘ 
g 1348 BASIC_ERR_CODE; ! The 32-bit BASIC error code i 
3 264 1304 3 '¢ i 
: 265 1345 ! The following SELECTONE statement searches the translation table i 
$ v4] 1346 for the BASIC error code corresponding to the STS value passed. i 
: 268 1348 BASIC_ERR_CODE = (SELECTONE (.STS) OF ‘ 
; 269 1349 ET i 
3: 270 1320 S$_ANI] : BASSK_TAPRECNOT; 
3: 271 1351 RMS$_ATR] : BASSK_FILACPFAI; i 
3 % 1326 RMS$_ATWJ] : BASSK_FILACPFAI; i 
3; 27 135 RMS$_BOF BASS$SK_ DET; i 
: 276 1354 RMS$_CHG] : BASSK_KEYNOTCHA; i 
s 275 1355 RMS$_CHK] : BASSK_CORFILSTR; i 
3; 276 1356 RMS$_CUR] : BASSK_NO_CURREC; i 


13 
ragggsrom 10 IRAE NAENS WGH ERE ol 


4 11:56:40 BASR IGNA (3) 
; 277 1357 RMS$_DAC] : BASSK_FILACPFAI; 
i 378 1338 RMS$-DEL] : BASSK-RECHASBEE; 
: er 1 RMS$-DEV] : BASSK-ILLUSADEV: 
; 280 1360 RMS$_DIR ASS$K~BADDIRDEV: 
; 281 1361 RMS$_DNFJ : BASSK-BADDIRDEV; 
; 28 136¢ RMS$_DNR] : BASSK-DEVHUNWRI; 
; 28 1 RMS$_DPE SS$K-FILACPFAI; 
3 284 1364 RMS$_DUP] : BASSK-DUPKEYDET; 
3 285 1365 RMS$_ENV AS$K-ILLUSA; 
; 286 1366 RMS$_EOF] : BASSK-ENDF ILOEV; | 
> 287 1367 RMS$_EXP] : BASSK-FILEXPDAT;: ! New with BASIC=PLUS-2/VAX | 
> 288 1368 RMS$_EXT] : BASSK-FILACPFAI; | 
: 289 1369 RMS$-FAC) : BASSK-ILLILLACC; 
> 290 1370 RMS$_FEX] : BASSK-NAMACCNOW; | 
: 291 1371 RMSS“FLG] : BASSKAILLKEVATT: 
i 398 1378 RMS$-FLK] : BASSK-FILIS LOC; | 
: 29 137 RMSS_FNFJ : BASSK-CANFINFIL; 
> 29% 1374 SS"FNM] : BASSK~ILLFILNAM: 
; 295 1375 RMS$_FOP] : BASSK-INVFILOPT; 
; 296 1376 3 RMS$-FULJ : BASSK-NO_ROOUSE; | 
> 297 1377 RMS$_I0P] : BASSK~ILCOPE; 
; 298 1378 RMS$_IRC] : BASSK-ILLRECFIL; 
: 399 137 RMS$_KBFJ : BASSK-BADRECIDE; | 
; 300 1380 3 RMS$_KEY] : BASSK-BADRECIDE; | 
; 301 1381 3 RNSSKRE] : BASSKINVKEYRET ; | 
; 30 1382 RMS$_KSZ] : BASSK-KEYSIZ100; 
; 30 1383 3 RMS$-MKDJ : BASSK~FILACPFAI; 
; 304 1384 3 RMS$_MRNJ : BASSK~RECNUMEXC; 
: 305 1385 3 RMS$-MRSJ : BASSK-BADRECVAL; 
; 306 1386 3 RMS$_NEF] : BASSK-NOTENDF IL; . | 
; 307 1387 RMS$_NOD] : BASSK_NODNAMERR; ! New with BASIC-PLUS-2/VAX 
; 308 1388 3 CRMS$_NPK] : BASSK-NO_PRIKEY; | 
F 309 1389 CRMS$_OK_IDX] : BASSK-INDNOTFUL; 
: 310 1390 3 CRMS$_OK-RLK] : BASSK-RECLOCFAI;: 
; 311 1391 3 CRMSS_PL BASSK_CORFILSTR; 
i $e 1392 § RMS$-POS] : BASSK~KEYFIEBEY: 
: 31 139 RMS$_PRVJ : BASSK~PROVIO; 
; 314 1394 RMS$-RAC) : BASSK~ILLRECACC; 
; 315 1395 RMS$-RATJ : BASSK-ILLRECACC: 
; 316 1396 RMS$-RBFJ : BASSK-BADRECIDE: 
; 317 1397 3 RMS$-RER] : BASSK~FILACPFAI; 
; 318 1398 RMS$-REX] : BASSK-RECALREXI; 
; 319 1399 RMS$-RFA] : BASSK~INVRFAFIE; 
: 320 1400 RMS$-RFM] : BASSK~ILLRECFOR; 
> 321 1401 RMS$-RLK) : BASSK-RECBUCLOC; 
> 322 1408 RMS$-RMV) : BASSK~FILACPFAI; 
> 323 140 RMS$_RNFJ : BASSK-RECNOTFOU; | 
i $26 1404 RMS$-RNL} : BASSK-NO CURREC; | 
3 325 1405 RMS$-RPL] : BASSK-FICACPFAI; 
i 326 1406 RMSS-RRV] : BASSK-CORFILSIR: 
: 32 140 RMS$-RSZ2J : BASSK-SIZRECINV: 
; 328 1408 RMS$_RTB SSK-RECFILTOO: 
i 329 1409 RMS$-SEQ) : BASSK~PRIKEYOUT; 
: 330 1410 RMS$_SHR S$K"ILLALLCLA; 
; 331 1411 RMS$_SIZ) : BASSK-KEYLARTHA; 
i $e 1418 RMS$~SPE] : BASSK-EXRMSSHR; 
; 33 141 RMS$~SQO] : BASSK~ILLOPE; 


M13 
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A833 14-Sep-19 4 94 5d8325 BASRTL.SRCIBASSIGNAL .B32;1 . 
; 1414 RMS$_SYN) : BASSK_ILLFILNAM; 
; 335 1415 RMS$_SYS] : BASSK_DIRERR: 
: 1416 RMS$_TMO] : BASSK-KEYWAIEXH; 
; 141 RMS$_TNSJ : BASSK-LINTOOLON; 
; 338 1418 RMS$_TREJ : BASSK-CORFILSTR; 
; 339 1419 RMS$_TYP) : BASSK LILLE ILNAM: 
; 340 14 9 RMS$_VER] : BASSK-ILLFILNAM; 
; 341 14 S$"WBEJ ; BASSK-FILACPFAI; 
; 4g 14 é MS$-WER] : BASSK-FILACPFAI; 
; 14 RMS$_WLK] : BASSK-DEVHUNWRI; 
; 344 1424 RMS$-WPL]_: BASSK-FILACPFAI; 
: 345 1425 OTHERWISE) : 0; 
3 ré] $ 8 TES); 
; 348 1428 IF (.BASIC_ERR_CODE EQL 0) 
2 ee ee 
; 7* 
3 3S) 1431 ! The code is not in the above table. If we are opening a file give 
3 326 136 the message ‘Can't open file’, otherwise ‘Fatal system I/0 error’. 
: 354 1434 
; 329 1435 i IF (.OPEN_FLAG) THEN BASIC_ERR_CODE = BASSK_CANOPEFIL ELSE BASIC_ERR_CODE = BASSK_FATSYSIO_; 
: 357 1239 § RETURN (.BASIC_ERR_CODE) ; 
; 358 1438 1 END; ! end of TRANSLATE_RMS 
.TITLE BASS$S$SIGNAL_IO 
-IDENT \1-023\ 
.EXTRN BASSSSTOP, BASSS$SIGNAL 
-EXTRN LIBSSIGNAL, LIBSSTO 
“EXTRN BASSHANDLER, BASSSCOND_VAL 
“EXTRN BASSK_BADDIRDEV 
-EXTRN BASSK~BADRECIDE 
-EXTRN BASSK~BADRECVAL 
~EXTRN BASSK~CANF INF IL 
.EXTRN BASSK~CANOPEF I 
-EXTRN BASSK~CORFILSTR 
-EXTRN BASSK_DEVHUNWRI 
-EXTRN BASSKDIRERR, BASSK_ENDF ILDEV 
TEXTRN BASSK~FILEXPDAT 
-EXTRN BASSK-FATSYSIO 
-EXTRN BASSK_FILACPFAT 
-EXTRN BASSK“FILIS LOC 
-EXTRN BASS FORFILOSE, BASSK_ILLALLCLA 
-EXTRN BASSR_ILLFILNAM 
-EXTRN BASSKTILLILLACC 
-EXTRN BASSK-ILLOPE, BASSK_ILLRECACC 
TEXTRN BASSK-ILLRECE IL 
-EXTRN BASSKTILLRECFOR 
-EXTRN BASSKTILLUSA, BASSK_ILLUSADEV 
“EXTRN BASSK~INVF ILOPT 
-EXTRN BASSK~INVKEYREF 
-EXTRN BASSK~INVRFAF IE 
-EXTRN BASSK"KEYSIZTOO 
-EXTRN BASSK KEYWAIEXH 


SIGNAL _10 


0001840C 


0001C0CC 
0001C0D4 
00018198 


0001849C 


000184A4 


00018484 


0001012 
00018262 
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-EXTRN 
~EXTRN 


»PSECT 


0000 00000 TRANSLATE a 


04 


006 


oO 
Ww 


oO 
™ 
SOYML NOOO OM NOONE DOVINUIE NA OOP 


POF ODWOCS WOOF MHAOIMNAOGTVOHSOST "AOE 


DO 00002 
D1 00006 

12 00000 
9A OOOOF 

11 00013 
D1 00015 18: 
13 0001C 
D1 Boose 

13 0002 
D1 00027 

12 Q002E 
9A 308 0 
HABE os 
Hee 
74 booze 

1 00043 
D1 00045 3$: 
12 0004C 

31 Q004E 
D1 00051 4$ 
1 0058 

31 OO05A 
D1 00050 5 
13 00064 6 
D1 00066 

12 00060 


PM 


vet Bliss-32 V4.0-74 


E 
IL, BAS$K_PROVIO 


BASS$K_INDNOTFUL 
BASS$K_EXRMSSHR, BASS$K_LINTOOLON 


-BASSCODE.NOWRT, SHR, PIC,2 


Save nothing 

RO. #99340 

FBASSK_TAPRECNOT, BASIC_ERR_CODE 
RD #114892 

RO, #114900 

RO, #98712 

#BASSK_TAPBOTDET, BASIC_ERR_CODE 
RO, #99484 

#BASSK_KEYNOTCHA, BASIC_ERR_CODE 
RO, #99492 


$ 
- #99508 


#114706 
RO, #98914 


ASRTL.SRCJBASSIGNAL .B52;1 


Se Pe Se See Se Se Se Se Se Se Se See Se Os Be Be Os Bs Oe Be Pete Se Se te Se 


Pee Se Se Se Se Se Ge Se Fe Ge Ge Se Ge Be Be FH Be Ge Ge Ge Ge Se Se Ge Ge Se Ge Ge Ge Ge Se Se Se Be Se Se Se Oe Se Ss Oe Oe Oe Be Oe Oe Oe Oe OS Os Oe Oe Oe eee 


14 
BASSS$SIGNAL_10 16-Sep-1984 01:13:34 AX-11 Bliss-32 V4.0-74 Page 10 
1-02 12-8 08- 1 obe OF 8i25 EBASRTL-SREIBASSIGNAL .B 231 9 (3) 
50 006 8F 9A 0006F MOVZBL #BASSK_RECHASBEE, BASIC_ERR_CODE ; 
$ 11 O03 BRB 208 _ : 
000184¢4 8F 50 D1 00075 7$ CMPL = RO, #99524 + 1359 
12 0007¢ BNEG 9$ : 
50 006 8F A 007 MOVZBL #BASSK_ILLUSADEV, BASIC_ERR_CODE : | 
0084 31 00082 8s: BRW 24$ : | 
000184CC BF 30 p 00 3 9$: CPL R , #99532 : 1360) 
Q001CO4A BF 33 dD} OO8E CMPL RO, #114762 t 1361. 
06 12 0009 BNEG =: 12$ : 
, 50 006 8F 9A 00097 10$:  MOVZBL #BASSK_BADDIRDEV, BASIC_ERR_CODE : 
7B 11 00098 11$: BRB 26$ : 
00018272 8F 50 D1 00090 128: CMPL RO, #98930 + 1362) 
03 12 O00A4 BNEQ 13$ : | 
034E 31 OO0A6 BRW 109$ : 
0001CO3A = BF 50 D1 O00A9 13$:  CMPL RO, #114746 + 1363) 
45 1300080 14$:  BEQL 22$ : 
000184EC 8F 50 pi 00082 CMPL RO, #99564 t 1364. 
06 12 00089 BNEQ =: 16$ ; : 
50 006 8F 9A 000BB MOVZBL #BASSK_DUPKEYDET, BASIC_ERR_CODE ; 
OD 11 OOOBF 15$: BRB 17$ : | 
00018724 8F 50 D1 000C1 16$:  CMPL RO, #100132 + 1365 
06 12 000¢8 BNEQ 18$ ; | 
50 00G 8F 9A OO0CA MOVZBL #BAS$K_ILLUSA, BASIC_ERR_CODE : | 
76 11 OOOCE 17$: RB : 
0001827A &F 50 0100000 18$:  CMPL RO, #98938 : 1366. 
07 12 00007 BNEQ  19§ : | 
50 006 8F 9A 00009 MOVZBL #BASSK_ENDFILDEV, BASIC_ERR_CODE : 
0081 31 000DD BRW 33$ : 
000182c2—sBF 50 D1 O00EO 19$:  CMPL RO, #99010 : 1367, 
07 12 000E7 BNEQ : | 
50 006 8F 9A O00E9 MOVZBL #BASSK_FILEXPDAT, BASIC_ERR_CODE : 
0081 31 OOOED 20$:  BRW : 
0001C022. ss &F 50 01 BO0FO 21$:  CMPL RO, #114722 : 1368 | 
03 12 OOOF7 22$:  BNEQ  23$ ; 
030A 31 000F9 BRW 112$ : | 
00018514 8F 50 D1 OOOFC 23$: CMPL RO, #99604 : 1369 
06 12 00103 BNE : 
50 006 8F 9A 00105 MOVZBL #BASSK_ILLILLACC, BASIC_ERR_CODE : 
OD 11 00109 24$: BRB : | 
00018282 = 8F 50 D1 00108 25$: CMPL RO, #98946 : 1370. 
06 12 0011 BNEG 7§ ; 
50 006 8F 9A 00114 MOVZBL #BASSK_NAMACCNOW, BASIC_ERR_CODE : | 
73 11 00118 368: BRB : 
0001851C 8F 30 D1 OO11A o7$: CMPL RO, #99612 > 1371, 
07 12 00121 BNEQ § ; | 
50 006 8F 9A 00123 MOVZBL #BASSK_ILLKEYATT, BASIC_ERR_CODE : 
0087 31 00127 BRW 42$ ; 
0001828A = 8F 50 D1 O012A 28%:  CMPL RO, #98954 : 1372 
06 12 00131 BNEQ  29§ : 
50 006 8F 9A 001 3 MOVZBL #BASSK_FILIS_LOC, BASIC_ERR_CODE : | 
0D 11 001 BRB 30$ : 
00018292 &F 50 01 00139 298:  cMPt RO, #98962 : 1373. 
06 12 00140 sweQ 6s 3:18 : 
50 006 i 9A 00142 MOVZBL #BASSK_CANFINFIL, BASIC_ERR_CODE : 
: 11 00146 308: BRB 44$ : 
0001852C 8F 50 D1 00148 31$:  CMPL RO, #99628 > 1374 | 


14 
BASSS$SIGNAL_10 1b-3¢ =1984 01:13:34 AX-11 Bliss-32 V4.0-74 Page 11 
Asst 12nee- 1 obs Syisgizg «| FeNsat eae Seagsiciw oS2;1 9 (3) 
> 12 0014F BNEQ 32$ ; 
02§ if 0131 BRW ots : 
0001853C = 8F D4 0194 32$: cMPL RO, #99644 + 1375 
50 ef 1 O13 ma MOVZBL WBASSK_INVFILOPT, BASIC_ERR_CODE : 
00018544 8F : D1 00164 378: CMPL = RO, - #99652 + 1376 
12 00168 BNEO : 
50 006 8F 9A O16p MOVZBL #BASSK_NO_ROOUSE, BASIC_ERR_CODE : 
0085 31 00171 358: BRW : 
00018574 8F 50 D1 00174 36$: CMPL RO #99700 + 1377 
0 1 00178 BNEQ 37$ : 
O1F 017) BRW 358 ; 
0001857C BF 50 01 90180 37$:  CMPL RO, #99708 : 1378 
06 12 00187 BNEQ : | 
50 006 8F 9A 00189 MOVZBL #BASSK_ILLRECFIL, BASIC_ERR_CODE ; 
7A 11 0018D 38$: BRB : | 
0001858¢ 8F 50 01 0018F 39$:  CMPL RO, #99724 + 1379 
07 13 00196 BEQL : 
00018594 8F 50 01 00198 CMPL RO, #99732 + 1380 
03 12 0019F 40$: § BNEQ 41$ : 
00E4 31 OO1A1 BRW 65$ : 
0001859C  8F 50 D1 001A6 41$:  CMPL RO, #99740 > 1381. 
06 12 001AB BNE F 
50 006 8F 9A OO1AD MOVZBL #BASSK_INVKEYREF, BASIC_ERR_CODE : 
0D 11 00181 428: BRB 44 : 
000185A4  8F 50 0100183 43$: CMPL RO, #99748 + 1382 
06 12 001BA BNEQ : 
50 006 8F 9A 001BC MOVZBL #BASSK_KEYSIZTOO, BASIC_ERR_CODE : 
77. 11 001CO 44$: BRB : 
0001C032 = &F 50 D1 001C2 45$: CMPL RO, #114738 : 1383 
03 12 001¢9 BNEG 46$ : 
0238 31 001CB BRW 112$ : 
000185CC BF 50 D1 OO1CE 46$: CMPL RO, #99788 > 1384 
06 12 00105 BNEQ 47$ : 
50 006 8F 9A 00107 MOVZBL M#BASSK_RECNUMEXC, BASIC_ERR_CODE ; 
OD 11 001DB BRB 8$ : 
000185D4 8F 50 pt 001DD 47$:  CMPL RO, #99796 > 1385 
06 12 DO1E4 BNEQ : 
50 006 8F 9A O01E6 MOVZBL #BASSK_BADRECVAL, BASIC_ERR_CODE : 
78 11 OO1EA 48$: BRB ; 
000185E4  8F 50 D1 OOiEC 49$: CMPL RO, #99812 : 1386 
07 12 OO1F BNEQ : 
50 00G 8F A OO1F5 MOVZBL #BASSK_NOTENDFIL, BASIC_ERR_CODE : 
0081 31 001F9 SOS: BRW : 
000185F4 8F 0 D1 OoiF¢ 51$: CPL RO #99828 + 1387 
07 12 0020 BNEQ § ; 
50 00G 8F A 00 05 MOVZBL #BASSK_NODNAMERR, BASIC_ERR_CODE : 
0080 31 00209 528: BRW 66 : 
000185FC 8F 50 01 00 0c 53$:  CMPL RO, #99836 : 1388 
07 12 0021 BNEQ 4 : 
50 00G 8F A 021 MOVZBL #BASSK_NO_PRIKEY, BASIC_ERR_CODE : 
0088 31 00219 BRW 68S ; 
00018019 8F : D1 0 5 548: CMPL RO, #98329 + 1389 
50 006 8F 9A 00 ; MOVZBL #BASSK_INDNOTFUL, BASIC_ERR_CODE : 
0088 31 00229 BRW 70$ : 


aa 


fT 


— 
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BASSS$SIGNAL_10 16-Sep-1984 01:13:34 AX=11 Bliss-32 v4.0-7%4 Page 1 
Asse eneen ihe Siisgizg «| He Nsat Oba Seags ici oS2-1 oe 
00018021 8F D1 55$:  CMPL RO, #98337 : 1390 
9 12 BNEG es : 
50 006 F A : MOV ZBL s ASSK_RECLOCFAI, BASIC_ERR_CODE : 
0001861C 8F Q D1 ° 3 $: CMPL RO, #99868 + 1391 
1 i BNEQ = § : 
0176 024 BRW 103$ : 
00018624 &8F 50 D1 00248 58$ CMPL RO, #99876 : 1392 
6 12 0024F BNEG 66-59 : 
50 006 8F 9A 00251 MOVZBL #BASSK_KEYFIEBEY, BASIC_ERR_CODE : 
D 11 5 BRB 74$ : 
0001829A = &F : D4} 759%:  CMPL RO #98970 : 1393, 
: BNEQ 618 : 
50 006 8F 9A 026 MOVZBL #BASSK_PROVIO, BASIC_ERR_CODE F 
0086 1 00264 60$:  BRW 6 : 
00018644 8F D4 00267 61$: CMPL RO, #99908 + 139% 
09 13 0026 BEQL 628 F 
0001864 8F 0 D1 0027 CMPL RO, #99916 + 1395 
06 12 0027 BNEO 4 : 
50 006 er 9A 00279 628: MOVZBL #BASSK_ILLRECACC, BASIC_ERR_CODE : 
D 11 0027D 63$: BRB : 
00018654 &8F 50 D1 O027F 64$:  CMPL RO, #99924 : 1396 
06 12 00286 BNEO ; 
50 006 BF 9A 00288 65$: MOVZBL M#BASSK_BADRECIDE, BASIC_ERR_CODE ; 
6— 11 00 aC 66$: BRB $ : 
OOO1COF4 BF 50 D1 002 E 67$:  CMPL  RO, #114932 + 1397 
6E 13 0029 BEQL : 
000182A2.—sBF 50 Di 00297 CMPL RO, #98978 : 1398 
07 12 0029€ BNEO 9 : 
50 006 8F 9A 002A0 MOVZBL #BASSK_RECALREXI, BASIC_ERR_CODE : 
008B 31 00244 68$:  BRW : 
0001865C BF 30 pt 90847 69$:  CMPL RO, #99932 : 1399 
50 006 8F 9A 00280 MOVZBL #BASSK_INVRFAFIE, BASIC_ERR_CODE : 
008A 31 002B4 70$:  BRW : 
00018664 28F 50 01 00287 71$: CMPL RO, #99940 + 1400 
07 12 002BE BNEG 738 : 
50 006 8F 9A 002C0 MOVZBL #BASSK_ILLRECFOR, BASIC_ERR_CODE : 
0089 31 002¢4 728: BRW 89$ : 
000182AA BF 50 01 00 (7 73$:  CMPL RO, #98986 > 1401 
07 12 ce BNEQ ; 
50 006 8F 9A 0020 MOVZBL #@BASSK_RECBUCLOC, BASIC_ERR_CODE : 
0088 31 00204 74$: BRW 91$ ; | 
OOOTCOFC BF 30 d 0 D7 75$: cHPL RO, #114940 > 1402 
00018282 = 8F $3 D1 00 e0 CMPL #98994 : 1403 
6 12 O02E BNEQ : 
50 006 8F 9A 0 9 MOVZBL #BASSK_RECNOTFOU, BASIC_ERR_CODE : 
F 11 OO2ED 768: BRB : 
000181A0 8F 30 D} OOF 77$:  CMPL RO, #98720 > 1404 
6 12 Fé BNEG  80$ ; 
50 006 gf 9A £8 ? $: MOV ZBL #BASSK_NO_CURREC, BASIC_ERR_CODE ; 
0001C104 8F 30 D| FE O$: CMPL RO, #114948 > 1405 
2 0 1$:  BNEQ a ; 
OoFC 31 7 BRU 2$ : 
00018684 8F 50 D1 0030A 82%:  CMPL RO, #99972 > 1406 


EEE EEOOOO—————e . . r 


14 
1hese -1984 01:13:34 AX-11 Bliss-32 V4.0-74 Page 13 
12-808-1 38 91388526 YBASRTL SRe BASSIGNAL.832;1 9 3) } 
0 1 BNEQ : 
a ee | 
000186A4 8F D| 16 83S: CMPL ~=s.- RO, #100004 + 1407 
6 12 00310 BNEG 84§ : 
50 006 i 9 1F MOV ZBL ’ ASSK_SIZRECINV, BASIC_ERR_CODE : 
000181A8 8F 30 p} 84$: cMPL RO, #98728 + 1408 
50 006 er 9 0 5 s MOVZBL WBASSK_RECFILTOO, BASIC_ERR_CODE : 
000186AC BF 0 p} 0 te cMPL RO, #100012 + 1409 
50 006 BF 9A § D MOVZBL #BASSK_PRIKEYOUT, BASIC_ERR_CODE : 
F 11 00 4} g7$: BRB 5 : 
00018684 8F 30 1 00345 B88: CMPL RO, #100020 t 1410 
50 006 $F 9A 0034 MOVZSL SRASSK_ILLALLCLA, BASIC_ERR_CODE 3 
1¢ 11 00350 89$: 93$ ; 
0001868C 8F 50 D1 00352 908: CMPL = RO,- #100028 + 1411 
06 12 0035 BNEQ : 
50 006 8F 9A 00358 MOVZBL #BASSK_KEYLARTHA, BASIC_ERR_CODE 3 
79 (11 035° 91$: BRB : 
000187A4 BF 50 D1 00361 92$: CMPL RO, #100260 + 1412 
06 12 00368 BNEQ 948 : 
50 006 8F 9A 00364 MOVZBL #BASSK_EXRMSSHR, BASIC_ERR_CODE : 
6A 11 003 5 93$ BRB 4 : 
000186C4 8F 50 D1 00370 94$ CMPL = RO, -#100036 + 1413 
06 12 00377 BNEQ 7 : 
50 006 8F 9A 00379 95$:  MOVZBL M#BASSK_ILLOPE, BASIC_ERR_CODE : 
7C 11 00370 96$: BRB : 
00018604 &F 50 D1 0037F 97$ CMPL RO, #100052 t 1414 
4E 13 00386 BEQL : 
0001C10C 8 50 01 00388 CMPL = RO, #114956 t 1415 | 
06 12 0038F BNEQ ; 
50 006 i 9A 00391 MOVZBL #BASSK_DIRERR, BASIC_ERR_CODE F 
7 11 00395 BRB : 
00018180 8F 30 D1 00397 98$: CMPL = RO,_-#98736 : 1416. 
6 12 0039€ BNEQ ; 
50 006 8F 9A 0 AO MOVZBL #BASSK_KEYWAIEXH, BASIC_ERR_CODE ; 
8 11 OO3A4 99%: BRB 114 ; 
00018188 8F 0 01 003A6 100$: CMPL RO, #98744 > 1417) 
06 12 003AD BNEQ : 
50 006 8F 9A OO3AF MOVZBL M#BASSK_LINTOOLON, BASIC_ERR_CODE : 
9 11 99 BS 1018 BRB $ ; 
000186DC = &F 0 01 00385 102$: CMP RO #100060 : 1418 
06 12 0038C BNEG §=_- 105 ; | 
50 006 8F 9A 00 BE 103$:  MOVZBL #BASSK_CORFILSTR, BASIC_ERR_CODE : 
4A 11 003C2 104$: BRB ; 
000186E4 8F 50 bt 03C4 105$: CMPL RO, #100068 + 1419. 
9 13 003CB BEQL 1068 : | 
000186FC 8F 0 oi 6 cD cMPL RO, #100092 + 1420 
50 00G 8F 9A 00306 106$: MOVZBL #BASSK_ILLFILNAM, BASIC_ERR_CODE : 
: 11 6 DA 10 $: BRB $ : 
0001C12C BF D1 OO3DC 108$: CMPL RO, #114988 > 1421 
1 13 O003E BEQL 112% : 
0001C114 BF 0 Di 003E CMPL = RO, #114964 > 1422 


————————————____——- 


RASSESIGHAL 10 


; Routine Size: 


1054 bytes, 


000182BA = 8F 


QOOO1C11C «BF 


Routine Base: 


if 14 , 
-seo- 
12: ep-1 
0} Qos 
8 42 O03 
00G 8F 9A F7 1098: 
ve: FB 1198: 
0 F FD 111$: 
6 12 rer 
00G 8F 9A 00406 1128: 
3 11 ake 
F 40C 113$: 
0D § Be 48 1148: 
Of AC 5 041 
0G 8F 9A 00414 
04 00418 
00G 8F 9A 00419 115$: 
04 0041D 1168: 


-BASSCODE + 0000 


Be 91358! 


rete Bliss-32 V4.0- 


SK_DEVHUNWRI, BASIC_ERR_CODE 
#114972 


OPEN_FLAG, 115$ 
#BASSK_CANOPEFIL, BASIC_ERR_CODE 


WBASSK_FATSYSIO_, BASIC_ERR_CODE 


74 
BASRTL.SRCJBASSIGNAL .852;1 
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5 ta 


85 
86 
87 
88 
89 
90 


A.A. A. AA.AA ANA 
Ssecss 
MePwnN— 


ewww 
o 
on 


S325 


4 
407 
408 


Foy oY oF ot ot at et oe 
a umene 
QOuVnlwn—o 


PEED MAA & BE BEE EEE 
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18-36 =1984 01:13:34 AX-11 Bliss-32 V4.0- 
1 ~Sep-19 4 tk 6:40 t SSI 


ROUTINE CALC_USER_PC = ! Calculate the user's PC 


++ 
FUNCTIONAL DESCRIPTION: 
scores back through the stack to find the user's PC, and return 


FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
The stack, which holds the process history to this point. 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
The user's PC, or 0 if no user PC can be found. 
SIDE EFFECTS: 


NONE 

BEGIN 

BUILTIN 
FP; 

LOCAL 
FMP : REF BLOCK CO, BYTE) FIELD (BSFSFCD) ! Frame under consideration 
PREV_FMP : REF BLOCK CO, BYTE) FIELD (BSFSFCD), | Its predecessor 

! User PC, found in PREV_FMP 

SEARTH_COUNTER, ' Prevents the search from running forever 
SEARCH_DONE ; ! Flags that the search is complete 


'¢ 

! Go back through the stack frames, starting with this one, to find 
one wepee handler is BASSHANDLER. The PC stored by its call is the 
! user PC. 

le 


SEARCH_DONE = 0; 
SEARCH_COUNTER = 0; 
FMP = FP; 
eet eee pee EQL 0) DO 
PREV_FMP = ' Remember previous frame 


oFMP; 
FMP = .PREV_FMP CBSFSA_SAVED FP); ' Point to this frame 
SEARCH_COUNTER = .SEARCH_COUNTER + 1; ! We are one level deeper 


re 


BASRTL.SRCJBASSIGNAL 


H 14 
BASSSSIGNAL_10 16-Sep-1984 01:13:34 AX-11 Bliss-32 V4.0-74 Pa 16 j' 
mtd 1o-808- 138s $i d8i20 EBASRTL  SRe Bass ici 62:1 - (4) 
3 417 1496 ; IF (.SEARCH_COUNTER GTR 65535) OR .FMP EQLA 0 | 
; 418 149 THEN | 
; 419 1638 4 BEGIN 
; 420 1499 4 !¢ 
> 421 1500 4 ! We have searched too far, or O(fp) is 0. 
; 4 ¢ 1501 4 ! The stack is probably messed up, or a non-BASIC fram. Return 
3 2 Z : 08 ? } a zero, and the traceback will show the user the mess. 
3; 425 1504 4 USER_PC = 0; 
: 426 1505 4 SEARTH_DONE = 1; 
3; 427 1208 4 
: 4 $ 138 3 ELSE 
3; 4 1508 4 BEGIN 
s 6 1509 4 !+4 
3; 431 1510 4 ! Check for a user frame. 
3; 4 ¢ 1511 4 !- 
3; 43 1216 4 
: 434 151 5 IF (.FMP CBSFSA_HANDLER] EQLA BASSHANDLER) 
: 435 1514 4 
; 436 1515 5 BEGIN 
3 437 1516 5 !+4 
; 438 1517 5 ! We have found the user's frame. Get its PC. | 
: 439 1518 5 !- 
: 440 1519 5 USER_PC = .PREV_FMP CBSFSA_SAVED_PC); 
3 441 1520 5 SEARTH_DONE = 1; 
3 «44 1521 4 END; 
: 44 1366 4 
3 444 1523 3 END; 
: 445 135% 3 
; 446 pte ae END; 
3 467 1526 § 
: 448 1527 '¢ ; ; 
: 449 1528 2 ! At the completion of the WHILE loop, USER_PC is set to the value 
; 450 1363 2 ! to return, either 0 or the user's PC. 
3; 451 1530 § t= 
: 45 1531 RETURN (.USER_PC); 
; 45 1532 1 END; ! end of CALC_USER_PC 
003C 00000 CALC_USER PC: 
.@ORD Save R2,R3,R4,R5 3 1439 
33 d4 00002 CLRL = SEARCH_DONE > 1486. 
3 D4 00004 CLRL SEARCH_COUNTER > 1487 | 
52 5D 00 00006 MOVL FP, FMP : 1488. 
$5 05 00009 18 TSTL  SEARCH_DONE ; 1490 
ef 12 00008 BNEQ 5$ Ps | 
50 1) it) MOVL FMP, PREV_FMP $ 1698 | 
52 oc AD 00 0001 MOVL  12(PREV_FAP), FMP > 1493. 
3 D6 14 INCL SEARCH_COUNTER : 1494 
OOOOFFFF 8F 1 00016 CMPL gy MICH COUNTER. #65535 : 1496 
98 4 1D BGTR $ 
2 03 3 1f TSTL FMP : 
9 $1 BNEQ 3$ P 
4 pd4 00023 2$ CLRL USER_PC 3 


5 


BASSSSIGNAL_10 
1-02 


Routine Base: 


; Routine Size: 


1 
3} 000000006 09 
1 6 


D6 
54 10 =A0 
55 i 
50 “ 


1:13:34 
1:56:40 


St 


Ww 
wr 


CoOOCOCCCoOoO 

AOP> NAM 
wv 
bad 


Ssssssssss 
¥ 


-BASSCODE + O4IE 


6% 
BASSHANDLER, R1 
(FMP), R1 


16(PREV_FMP), USER_PC 


#1, SEARCH_DONE 
USER_PC, RO 


AX-11 Bliss-32 V4.0- 
BASRTL.SRCJBASSIGNAL 
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ASSSSIGNAL_10 1b-Se 1984 01:13:34 AX-11 Bliss-32 V4.0-74 Pa 18 
wast 1e-8ep-1 4 te 6:40 YBASRTL SRe BASS! GWAL 6921 - (5) 
; 4 $ 1 1 GLOBAL ROUTINE BASSSSIGNAL_I0 ( ! Signal an 1/0 error 

3; 4 1535 1 OPEN_FLAG ! Error code or translation guide 

; 458 1 1 ) : CALL CCB NOVALUE = 

; 459 1 1 

; $60 1 : 1 fee 

: ped : i : FUNCTIONAL DESCRIPTION: 

; 46 1541 1! Signals a BASIC 1/0 error. If requested, the error number 

: tee 1366 : is determined by examining the RAS error codes. 

; 466 1544 1 ! FORMAL PARAMETERS: 

: 467 1ee2 , 
; 468 1 +8 , 3 OPEN_FLAG.rl.v Either a BASIC error number or a code telling 

; 469 1547 1! how to translate the RMS error information. 

; 470 1548 1! 
: 471 1549 1°! IMPLICIT INPUTS: 
3; 47 1550 1! 
3; 47 133) 1! Various fields of the LUB and FAB. 

3 474 15 § 1: 
3 475 1553 1 ! IMPLICIT OUTPUTS: 
: 476 1554 1! 
3; 477 1855 1! NONE 
: 478 1596 7 } 
3; 479 1557 1 ! ROUTINE VALUE: 
; 480 1338 1 ! COMPLETION CODES: 
; 481 1559 1! 
; 48 1560 1! NONE 
: 48 1561 1! 
: 4484 1268 1 ! SIDE EFFECTS: 
3; 6485 1565 1! 
; 486 1564 1! May never return to its caller, depending on the severity 
3; 487 1565 1! of the error. 
; 488 1566 1! 
> 489 1567 1 !-- 
; 490 1568 1 
3 «6491 1569 2 BEGIN 
3; 492 1570 § 
3: 493 1571 EXTERNAL REGISTER 
3 496 1378 § CCB : REF BLOCK (0, BYTE); 
3 495 157 
3 496 1574 : LOCAL 
3 497 1575 BASIC_ERR_CODE : BLOCK CXUPVAL, BYTE], ! The 32-bit BASIC error code 

: 498 1576 2 FILE_RAME-DESC : BLOCK (8, BYTE), ! Descriptor for file name : 

; 499 1577 USER_PC, ' The user's PC, determined by scanning the stack 
; 500 1578 CHAN, ! The BASIC channel number 

s 301 1579 STS, ' RMS completion status code 

; 206 1580 STV; ! RMS status value 

s 1581 

3: 504 15 ¢ '¢ ; 

; 302 12 : If this is a ‘memory’ operation, just call BASS$SIGNAL. 

; 209 1585 

; 508 15 If (.CCB CISBSV_DE_ENCODE)) 

; 509 158 THEN 

; 510 1588 BEGIN 

; 511 1589 BASSSSIGNAL (.OPEN_FLAG); 

s St2 1590 RETURN; 
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iv ° 
ep-1984 01:13:34 AX-11 Ot iets -32 v4.0 
12:3 00-1882 9 13:3 40 BASRTL. SRCIB BASSIGNAL. 5 2;1 
END; 
IF (.OPEN_FLAG GEQ 0) 
THEN 
id BEGIN 
This is a BASIC 1/0 error, convert to a 32-bit VMS error code. 
; SIS = = 0; 
BASIC ERR_ CODE = BASSSCOND_VAL (.OPEN_FLAG); 
ELSE 
* BEGIN 
i This is an RMS error, we must compute the nx error number. 
jaeease the STS and stv" voluns from the RAB or FAB. 


IF (.OPEN_FLAG NEQ BASSK_IOERR_OPE) 
THEN 


3) 
STS = B CRABSL_STS); 
STV = B CRABSL_STVJ; 
END; 
ae re EGL BASSK_IOERR_OPE) OR (.STS AND (.CCB CLUBSA_FAB] NEQA 0))) 
BEGIN 
LOCA 


L 
FAB : REF BLOCK CO, BYTE); 


-CCB Las. FAB); 
AB CFABSL_STSJ; 
FABSL— SOE 


FAB 


“ 
— 
ab 
oe 
nun 


'¢ 
: Compute the BASIC error code corresponding to the RMS error. 


BASIC_ERR_CODE = BASSSCOND_VAL (TRANSLATE_RMS (. STs, 
Be (IF (.OPEN_FLAG NEG BASSK_IOERR_REC) THEN 1 eis ‘6): 


'¢ 
to Compute the BASIC channel number. 


IF (.CCB CLUBSW_LUN) LSS 0) THEN CHAN = O ELSE CHAN = .CCB CLUBS$W_LUN); 


'¢ 
_Compute user PC 


USER_PC = CALC_USER_PC (): 
i Build a pointer to the file name from the LUB. 


ree 8 
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$SIGNAL_10 


BASS 
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ar strin 
I text 


St tee 


** on channel n for file aaa at user PC xxx "’ 


Three FAO arguments 
Second longword of RMS status 


BASIC Channel number of error 
First longword of RMS status 


$s 

A 
The BASIC error code 
No FAO arguments 


A 

‘a 

8 

$8 
»BASIC_ERR_CODE, 


S$_ON_CHAFIL, 
NAME _DESC, 
R_PC, 


A 
STS, 
»STV 


84 
. CHAN, 


LIBSSIGNAL ( 
FILE 
»USE 


AM 
AM 
AM 
Signal an error. 
END; 


ALL done. 
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RRR Riche 208000000000 0000 COO 
RAMADAN LALLA 


! end of BASS$SIGNAL_IO 
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BASSSSIGNAL_10 1¢- = 4 01:13:34 AX-11 Bliss-32 V4.0-74 Pa 1 
Asse . 138 Oh:23:25 HANSA Oba sSe Re Yeu br7eg. a Og 


; We 1670 1 


FB3B CCF 93 FB . CALLS #3, TRANSLATE_RMS : | 
DD 0006 PUSHL : | 
000000006 99 ee, 069 8$: CALLS , BAS$SCOND_VAL : 
0 D 00 : MOVL BASIC _ERR~CODE : | 
C6 AB BS 0007 tStw = Mi + 1640. 
4 1 0076 BGEQ ; 
2 04 0007 CLRL SAN : 
046 11 007A BRB 10$ ; | 
52 C6 AB 32 0007C 9 CVTWL  =-58(CCB), CHAN : | 
FF3B OCF 00 FS 90080 10$ CALLS #0, CALC_USER_PC + 1645) 
04 AE Fg AB DO 00085 MOVL  8(CCB),~FILE-NAME_DESC+4 + 1649) 
6E AB 98 O008A MOVZBW =9(CCB), FILENAME DESC : 1650, 
02 AE 010E 8F 80 O008E OVW ¢ , FILE_NAME_DESC+2 + 1652 
3 DD 00094 PUSHL STV + 1664 
11° BB 00096 PUSHR #*M<RO,R4> + 1662 
0c AE 9F 0009 PUSHAB FILE _NAME_DESC > 1656 
52 DD 00098 PUSHL CHA : 1660 
03 DD 0009D PUSHL a + 1656 
00000000G 8F ODD 0009F PUSHL #BASS_ ON_CHAF IL 3 
7E D4 OO0AS CLRL. = (SP) : 
55 DD OO00A7 PUSHL BASIC ERR_CODE : 
000000006 00 09 FB 000A9 CALLS #9, LIBSSTGNAL ; | 
04 00080 RET : 1669, 
3; Routine Size: 177 bytes, Routine Base: _BASSCODE + 045E 
| 
| 


; N 14 
BASSS$SIGNAL_10 16-Sep-1984 01:13:34 AX-11 Bliss-32 V4.0-74 Page 22 
838 1e-Sep-1984 11:50:40 Eeasnte’$aeSeagsyeunr 692.1 5 
; 594 1671 1 GLOBAL ROUTINE BASSSSTOP_IO ( ! Signal a fatal I/0 error 
s 399 10l¢ 1 OPEN_FLA : Error code or translation guide i 
; 596 1675 1 ) : CALL CCB NOVALUE = 
3 O97 1674 1 i 
>; 598 1675 1 !+¢ 
>; 599 1976 1 ! FUNCTIONAL DESCRIPTION: i 
; 600 1677 1! i 
; 601 1678 1! Signals a fatal BASIC 1/0 error. If requested, the error number ‘ 
3 oOe 4 : is determined by examining the RMS error codes. i 
; 604 1681 1 ! FORMAL PARAMETERS: i 
; 605 1086 1% ‘ 
: 606 16 1 3 OPEN_FLAG.rl.v Either a BASIC error number or a code telling i 
; 607 1684 1! how to translate the RMS error information. F 
; 608 1685 1! i 
; 609 1686 1 ! IMPLICIT INPUTS: F 
; 610 1687 1! | i 
> 611 1688 1! Various fields of the LUB and FAB. F 
; oi¢ 1689 1! : 
: 61 1690 1! IMPLICIT OUTPUTS: | 
; 614 1691 1! | 
3; 615 1636 1 ! NONE ; 
3; 616 1693 1! i 
s 6l7 1694 1 ! ROUTINE VALUE: | : 
; 618 1695 1 ! COMPLETION CODES: | 
> 619 1696 1! H 
; 620 1697 1! NONE 3 
; 621 1698 1! : 
; 622 1699 1 ! SIDE EFFECTS: 3 
: 625 1700 1! ‘ : 
> 624 1701 1! Never returns to its caller. | 3 
; 625 1706 . F 
3 626 1703 1 !-- 3 
3 627 1704 1 ; 
; 628 1705 2 BEGIN : 
3; 629 1706 § : 
3; 630 1707 EXTERNAL REGISTER : 
3; 631 1708 2 CCB : REF BLOCK CO, BYTE); 3 
; 632 1709 2 3 
3; 633 1710 2 LOCAL : : 
: 634 1711 2 BASIC_ERR_CODE : BLOCK CXUPVAL, BYTE], ! The 32-bit BASIC error code 3 
; 635 1712 2 FILE_NAME-DESC : BLOCK (8, BYTE), : Descriptor for file name 3 
; 636 1713 USER_PC, : The user's PC, determined by scanning the stack : 
3 Of 1714 CHAN, : The BASIC channel number 3 
; 638 1715 " ' RMS completion status code 3 
; 639 1716 STV; ! RMS status value 3 
3: 640 1717 § 3 
3; 641 1718 '¢ : 3 
; 64 1719 2! If this is a ‘memory’ operation, just call BAS$$STOP. 
; 64 1720 !- 
3 644 1721 
; 645 Has IF (.CCB CISB$V_DE_ENCODE)) 
; 646 172 THEN 
: 647 He BEGIN 
; 648 1725 BASSSSTOP (.OPEN_FLAG); 
; 649 1726 RETURN; 
; 650 1727 H 


15 

BASSSSIGNAL_10 18-5 -1984 01:13:34 AX-11 Bliss-32 V4.0-74 Page 23 
1-023 12-8 08- 1 3be 91 i38:2 EBASRTL SRC IBASSIGWAL 6 2;1 . (6) 
: g ; 4 g IF (,OPEN_FLAG GEQ 0) 

eee: / its 

; 655 17 ¢ '¢ 

; £28 Ve ? This is a BASIC 1/0 error, convert to a 32-bit VMS error code. 
; 658 1735 STS = 0; 

; 659 1736 STv = 0; 

; 660 1737 BASIC_ERR_CODE = BASSSCOND_VAL (.OPEN_FLAG); 

; 661 1738 END 

3 966 1739 ELSE 

: 66 1740 BEGIN 

; 664 1741 : 

3; 665 Hot ! This is an RMS error, we must compute the BASIC error number. 

> 666 174 i Obtain the STS and STv values from the RAB or FAB. 

; 667 1744 t= 

; 668 1745 

; 669 1746 4 IF (.OPEN_FLAG NEQ BASSK_IOERR_OPE) 

: 670 1747 3 THEN 

s 671 1748 4 BEGIN 

; 67 1749 & STS = .CCB CRABSL_STS); 

; of 1750 4 STV = .CCB CRABSL_STVJ; 

3; 674 je Se END; 

3; 675 1736 5 

; 676 1753 4 IF ((.OPEN_FLAG EQL BASSK_IOERR_OPE) OR (.STS AND (.CCB CLUBSA_FAB) NEQA 0))) 
s 677 1754 3 THEN 

; 678 1755 4 BEGIN 

; 679 1756 4 

; 680 1757 4 LOCAL 

; 681 1758 4 FAB : REF BLOCK (CO, BYTE); 

3; 682 1759 4 

s 685 1760 4 FAB = .CCB CLUBSA_FAB); 

; 684 1761 4 STS = .FAB CFABSL_STS)J; 

; 685 1766 4 STV = .F FABSL_STVJ; 

3; 686 1763 3 END; 

3; 687 1764 3 

; 688 1765 ; '+ 

; oe 1766 3 Compute the BASIC error code corresponding to the RMS error. 

; 691 1768 3 BASIC_ERR_CODE = BASSSCOND_VAL (TRANSLATE_RMS (.STS, .STV 
; 692 1769 3 (TF (.OPEN_FLAG NEG bissx_'MERR_REC) THEN 1 ELSE 6))); 
: 693 1770 2 END; 

3 694 1771 § 

; 695 1776 ‘? 

; 696 177 ! Compute the BASIC channel number. 

3; 697 1774 !e 

3; 698 1775 

s 344 17% IF (.CCB CLUBSW_LUN) LSS 0) THEN CHAN = 0 ELSE CHAN = .CCB CLUBS$W_LUN); 
s 701 1778 '¢ 

; 70 1779 !' Compute user PC 

; 70 1780 '- 

> 704 1781 USER_PC = CALC_USER_PC (); 

3s fe 1782 ie , 

; 706 178: ! Build a pointer to the file name from the LUB. 

: 707 1784 !- 
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Page 


251 
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BASSIGNAL.B 
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tae 
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BA 
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Nsccesteeeneenenaneiset 


lar strin 
II text 


av 


*" on channel n for file aaa at user PC xxx "' 


Three FAO arguments 
Second longword of RMS status 


BASIC Channel number f error 
First longword of RMS status 


S 

A 
The BASIC error code 
No FAO arguments 


LIBSSTOP (.BASIC_ERR_CODE, 
BASS_ON_CHAFIL, 
. CHAN, 
FILE_NAME_DESC, 
-USER_PC, 
STS, 
.STV 


ALL done. 
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dD 15 
BASSSSIGNAL_10 16=Sep-1984 01:13:34 AX-11 Bliss=-32 Vv P 25 
Aas 13-808- 1382 1:88: 40 BASRTL.SR neieassic Vena 5 2:1 ~~ di 
0 DD 00067 PUSHL R F 
000000006 99 p F 6 $9 8S: CALLS i. BASSSCOND_VAL : 
0 D : MOVL BASIC ~ERR~CODE : 
C6 AB BS 0007 Tstw Oi =36c¢ + 1776 
2.7 : 1 BGEQ ; 
2 4 7 CLRL a ; 
4 11 OO07A BRB $ : 
52 (6 AB 32 0 7C 9S: CVTWL 46 =58 (CCB), CHAN : 
FEBA CF 0 FB 080 10$: CALLS #0, CALC! USER > 1781 
04 AE Fg AB DO 00085 MOVL  =8(CCB),~ FILES chane _DESC +4 + 1785 
6E AB 38 OO8A MOVZBW 34CCB) FILENAME ~ DESC ; 1786 
02. AE O10E «BF OB OOBE VW , FILE tNARE MDESCeS : 17 
3 DD 4 PUSHL + 1800 
17 BB 000 PUSHR #*M<RO,R : 1798 
OC AE 9F 0009 PUSHAB FILE NAME ” DESC : 1792 
DD 60098 PUSHL CHA : 1796 
DD 0009D PUSHL oe : 1792 
000000006 BF 0D 0009F PUSHL #BAss _ON_CHAF IL : 
E D4 OO0AS CLRL (SP) : 
55 DD O00A7 PUSHL  BASIC_ERR_CODE : 
000000006 00 09 FB 000A9 CALLS #9, LIBSSTOP : 
04 00080 RET > 1805 


; Routine Size: 177 bytes, Routine Base: _BASSCODE + OSOF 


; 729 1806 1 


—_— ——— EE 


15 
BASSSSIGNAL_10 1hese AX-11 Bliss-32 V4.0-76 > 6 
mt} . 1a-Se EBASRTL SRC IBASSIGNAL .B32;1 age 66 


tal 1/0 error 
which the error happened 


Wn 


GLOBAL ROUTINE BASSSSTOP_RMS ( 
FILE_NAME, 


STV 
) : NOVALUE = 


oe 
! FUNCTIONAL DESCRIPTION: 


SANG 
uw 


s 1 4 1 

s 1 ; 1 

$ 1809 1 

; 1 19 1 

F 181 1 

5 1 if 1 

; 181 1! 

§ 1814 1! 

3 1815 1! 

; 760 1 1 1! Signals a fatal BASIC 1/0 error. The error number 

: fr) : : : } is determined by examining the RMS error codes. 

: eer : 13 : FORMAL PARAMETERS: 

; 745 1821 1! FILE _NAME.rt.dx The name of the file which got the error 

; 7 1 ¢ 1! STS.rl.v The RMS STS value 

; 7% 1 & STV.rl.v The RMS STV value 

; 748 1824 1! 

3; 749 1825 1 ! IMPLICIT INPUTS: 

; 750 1826 1! 

3; 751 iS , oe NONE 

; P36 1828 1! 

ie 1829 1 ! IMPLICIT OUTPUTS: 

3; 754 1830 1! 

; 755 1831 1! NONE 

3; 756 1336 1! 

3 757 18335 1 ! ROUTINE VALUE: 

; 758 1834 1 ! COMPLETION CODES: 

3; iv 1835 1! 

; 760 1836 1! NONE 

3; 761 1837 1! 

: r6¢ 1838 1 ! SIDE EFFECTS: 

3; 1839 1! 

: 764 1840 1! Never returns to its caller. 

; 765 1841 1! 

; 766 ieee 1 !-- 

3 767 18435 1 

; 768 1844 BEGIN 

3; 769 1845 

; 770 1366 LOCAL 

3 aa) 984 BASIC_ERR_CODE : BLOCK CZUPVAL, BYTE]; ! The 32-bit BASIC error code 
: 77 1849 2 '+ 

3 oT 1930 : Compute the BASIC error code corresponding to the RMS error. 

3 776 1936 BASIC_ERR_CODE = BASSSCOND_VAL (TRANSLATE_RMS (.STS, .STV, 0)); 
g Hed 

3 as | 1328 : Signal a fatal error. 

; 780 1886 LIBSSTOP (.BASIC_ERR_CODE, ! The BASIC error code 
: 781 185 ‘ : No FAO arguments 
3; 1858 S$_FORFILUSE, s Ter TILe 20 

; 2 1859 ! Two FAO arguments 
+ 784 1860 ~FILE_NAME i File name 

> 785 1861 CALC_OSER_PC (), i User PC 

3 786 1 $6 .STS, ' First longword of RMS status 
3; #8 1 STV ! Second longword of RMS status 


F 15 
be) pene 1ec$ep-1986 11:56:20 EBASRILSSRESBASS TONAL. ae 


ep-1984 GNAL .B852;1 
; 78s 1 5 '¢ és 
: 7 186 i ALL done. 
791 a si 
: 792 1868 END; ! end of BASSSSTOP_RMS 
i 
0004 00000 «ENTRY BASSSSTOP_RMS, Save R2 ; 180 
7E bs Bee CLAL -(SP) : 185 
7E 08 at ) MOVQ STS, =(SP) : 
FA33 CF 9 FB 00008 CALLS #3. TRANSLATE_RMS : 
0 oD BR80 PUSHL RO 3 
000000006 § 97 FB OOOOF CALLS #1, BASSSCOND_VAL 3 
0 »o0 Be18 MOVL RO, BASIC_ERR_CODE 3 
E 08 AC 7D 0001 mMOVa STS, =(SP 7 186 
FE3C =F 00 FB 80535 CALLS #0, CALC_USER_PC 3: 186 
50 DD 00022 PUSHL R 3 
046 AC OD 808 4 PUSHL FILE_NAME : 186 
02 0D 00027 PUSHL @# : 185 
000000006 or DD 808 9 PUSHL #BAS$_FORFILUSE 3 
E D4 tH CLAL -( 3 
3s DD 00031 PUSHL BASIC_ERR_CODE 3 
000000006 00 08 FB 00033 CALLS #8, LTB$STOP 3 
04 0003A RET : 1868 
; Routine Size: 59 bytes, Routine Base: _BASSCODE + 05C0 | 
; 793 1968 1 
; 796 1870 1 END ! end of module BASS$$SIGNAL_I0 
3 795 4 1 
; 796 1872 0 ELUDOM 
s PSECT SUMMARY 
: Name Bytes Attributes 
: _BASSCODE 1531 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL. CON, PIC,ALIGN(2) 
3 Library Statistics 
: wee wee Symbols eccececn Pages Processing 
: File Total Loaded Percent Mapped Time 
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COMMAND QUALIFIERS 


ck 


Sep- 
wep 


1986 91: 


3:34 
6:40 


AX-11 Bliss-32 V4.0-7 
BASRTL.SRC BASSIGNAL.6 2:1 


rom 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L 1S$:BASSIGNAL/0BJ=08J$ :BASSIGNAL MSRC$:BASSIGNAL/UPDATE=(ENHS$:BASSIGNAL 


Size: 1531 cgge + 0 data bytes 
Run Time: : 50. 
Elapsed Time: 1:06.4 


Lines/CPU Min: 3714 

Rovonne/ Peres 19748 
Y Used: 259 pages 

— ation Complete 


- | 
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